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FROM THE PRESIDENT 


I don't know why I didn't start writing this section 
earlier*. There are so many things to talk to you about. 
I'll try to use this to "chat" with you about things that 
seem important to me. 

Please note that we now have a secretary , Sharon 
Greene, who will take care of most of your requests more 
efficiently than in the past. Her phone number is (303) 
449-6917. 

Many of you are calling and asking if we know about 
certain application software or certain types of hardware. 
Sharon has compiled a cross reference of the information we 
have and we will be asking you for more information through 
the newsletter in the form of questionaires. Please 
respond so that we can place this information on file. 

At the 3rd West Coast Computer Faire, a great deal of 
interest was evidenced by a few dealers at some meetings to 
create an organization of dealers called AMDEAL. Elsewhere 
in this issue is a copy of a recap of the objectives of the 
organization as written bu Dale Horn. Unfortunately time 
has taken its toll, letters were not sent to dealers, 
little subsequent interest has been evidenced, and the idea 
is in jeopardy. I suggest a number of potential ideas if 
you as a dealer are interested: 

1. Cali or write Steve Patterson, Fred Gross, and 
Dale Horn, and express your interest. 

2. David Kacela is independently attempting to create 
a software exchange mechanism. Let him know you 
are interested. 

3. Use your AMUS membership. If you have something 
you-are willing to market through dealers, let us 
know. We will publish it and get it in our cross 
reference file. 

4. All of the above. 

5. None of the above, but don't call me for 

information. 

One of the goals of AMUS is to make sure that new 
owners of an Alpha Micro don't need to spend as much time 

as we did to learn how to use it._ Some of the things that 

have occured are: Four days of seminars at the 3rd West 
Coast Computer Faire. Two day Seminars being held in 

Boulder. Answering almost any questions coming to us by 
telephone. There will be training classes at the 4th West 
Coast Computer Faire, Boulder seminars will continue, Scott 
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Brimm of Las Vegas has considered starting some seminars. 
Duane Cowgill of Alta Dena, California has done some 
private training, Many dealers are providing good training 
and we will continue to publish whatever seems appropriate. 
We hope that our experience in Boulder will make us 
knowledgeable enough about what needs to be taught so that 
we can bring that training to you. 

Steve Patterson may be reached at 1280 28th St., Boulder, 
Co. 80303. Dale Horn's address is 4059 Rosevelt Way NE, 
Seattle, Wash. 93105 We couldn't find Fred Gross' address 
at press time, but a call to Sharon will get it. 

Jim Taylor 


If you have software or hardware that applies to the Alpha 
Micro, or know of a dealer or software house creating Alpha 
Micro products, please let us know and send a copy of 
information about the product or service in reproducable 
form, and we will include it in the newsletter and place it 
on our cross reference list. 

Please return the questionaire that was in the last 
newsletter. We can only report on the use and availability 
of the Alpha Micro computer if we have the information from 
you folks out there. 

4.1 will be released in April. It will contain fixes to 
known problems. a new print spooler, with lots of options, 
and an announcement of two manuals? a new AMOS operator's 
manual, and an Assembly Language manual. Fortran will not 
come with 4.1, but should be ready before 4.2 and may be 
obtained by request. 

These items were sent to us from Lefford Lowden in his 
AM-100 user group newsletter. Lefford also has several 
patches for AMOS programs that makes them reuseable. If 
you enjoy twiddling with AMOS’s innerds you might like to 
contact Lefford and join his user group. Twiddling might 
get you into trouble if you aren't careful since it's hard 
to second guess what Alpha Micro might do in the future 
that might produce interesting 'side effects' to changes, 
but if systems software is your passion, Lefford is the 
current voice for the Alpha Micro computer. 

The following programs may be run in 4.0 without the 
user being logged in: ATTACH.PRG HELP.PRG LOG.PRG 
LOGOFF.PRG MEMORY.PRG PPN.PRG SET.PRG SYSTAT.PRG 
SYSTEM.PRG 
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In alphaBASIC the functions UCS and LCS will now 
correctly handle null strings without crashing the 
system. However, when inserting file names and 

directory devices, etc*, these must be in upper case 
only* Curiously, the text of AlphaBASIC programs may be 
in upper or lower case characters — even mixed without 
causing difficulties. Unfortunately, the case of the 
variables is important. It doesn't matter what case is 
used for the variables as long as the same case is used 
for all occurrences of the given variables. Consider 
the following codes 

10 n 3 1 

20 FOR I * 1 to 50 
30 N 3 N + 1 
40 NEXT I 
50 PRINT n, N 
60 END 

The values that are output are 1 and 50 rather than 51 
and 51. Thus one concludes that n is not equal to N. 

COMMENTARY ON SCNWLD.SYSs SCNWLD.SYS is a routine that 
is called for use by RENAME, DIR, COPY, ERASE, and DEL* 
It is used to interpret the wild card file names. 
Since it must be obtained from the system disk each 
time one of those programs is called (even though there 
may be no wild file names to handle), I would suggest 
that you might want to make it part of the system via a 
SYSTEM command in SYSTEM.INI. This will produce a 
IttXe faster response from these commands as the FETCH 
won't have to go to the system disk. 

THE FOURTH WEST COAST COMPUTER FAIRE will be held on May 
11,12 & 13. The Alpha Micro Users Society will again be 

sponsoring traiining sessions and special seminars at the 
Faire. We are reserving two rooms in the convention hall 
for two concurrent training sessions which will be held on 
Friday, May 11th. Bob Currier from Alpha Micro will conduct 
an "advanced" class for you experts who want to go into 
detail about Alpha Micro software. Steve Elliott and Jim 
Taylor will conduct another "novice only* class covering 
SYSTEM.INI, memory management, file formats, and some on 
BASIC. To help cover the expenses, there will be a $35 
charge for the ond day traiining sessions. 

There will be a general members meeting on Saturday evening 
at 6 PM in one of the regularly scheduled convention 
meeting rooms. The agenda will include reports from 
committees and nominations for officers and the Board of 
Directors. Voting will be done through a ballot in the 
newsletter following the meeting. If you have an item that 
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you would like to haveon the agenda, please contact Sharon. 
Bob Hitchcock and Dick Wilcox also plan to be in 
attendance. 

Plans are also under way for a dealers meeting on Saturday. 

Alpha Accounting Package 1.1. Dalton Williams reports that 
the CALWTH program (calculation of withholding taxes) in 
the Payroll system erroneously reads the weekly rates in 
where the semi-weekly and monthly rates are supposed to 
go. 

Dick Leach reports two no-nos which cause the system to go 
away or perform some unpredictable act of prestidigitation: 
Using the IF THEN statement interactively can be done in 
BASIC , but if a logically false comparison exists, the 
program counter will move to the next line and execute it 
and that could be just about anything. Loading zero 
records into a sort is a sure-fire way to crash AMOS too. 

We know that some of you have been waiting forever for 
those floppys, ans we are trying to get them done as soom 
as possible, but sometimes our resources just aren’t 
cooperating. Patience. We are trying. 
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STAT. 


3 SYSTEMS, INC. 


4059 Roosevelt Way N.E. 
Seattle, Washington 98105 


1-800-562-7775 

206-632-5080 


Attention: Alpha Micro O.E.M. or Dealer 

In November of 1978 the Alpha Micro Dealers Association was 
formed. The name of the Association is: AMDEAL, Inc. 

AMDEAL has the following goals: 

A. AMDEAL, Inc. as an association of Alpha Micro's "official” 
OEM's and dealers. 

B. To act as a unified support group to Alpha Micro in 
OEM/dealer matters. 

C. To further an "official” unified AMDEAL OEM/dealer profile 
in matters of: 

1. OEM/dealer operation and ethics 

2. Marketing and Promotion 

3. Technical Training and Support 

Software cross licensing and documentation 
5. Warranties and legal aspects of software/hardware 

D. To act as a "clearing house" of requests directed to Alpha 
Micro with the purpose of supplying a unified "want list" 
to Alpha Micro with follow-up. 

E. To relay to AM unusual situations in the field, after 
researching same, to AM, in the areas of software, hardware 
and "end user" problems. 

F. To act as either an indermidiary between AMUS and AM or 
in conjuction with AMUS. 

G. To supply an umbrella of support to OEM/dealers in the areas 
of: 

1. Insurance coverages (business and health) 

2. Litigation (Via: class action) 

3. Back-up when illness strikes a "one-man" dealer 

4. A possible national maintenance contract 

5. Vendor negotiations 

H. Supply seminars and video cassettes in: 

1. Marketing 

2. Technical service 

3. Manuals and documentation 

4. "So you're a new dealer" seminar 

5. Installation 

6. Maintenance 

If you wish to join AMDEAL please do the following: 

I. Send (on your letterhead) 

A. Your AM original CPU number 

B. Your officers names 

C. Your "type" of OEM or dealership: 

1. Retail "store" 

2. Systems house 


• TAT, the healthcare people... 
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3. Business equipment (cash registers, etc' 

4. Other (specify) 

D. Your preference on the first seminar you wish to 
attend (or have a cassette of) 

E. Enclose a check for $25.00 (made out to AMDEAL , Inc .) 
This is for registration! The annual dues will be 
billed to you later. Annual dues are to be set by 
the Executive Committee of AMDEAL. (fellow dealers) 

If you have any questions, call me at (206) 632-5080 or 
drop me a note. 

Thanking you in advance, 

—— 

Dale T. Horn 
President AMDEAL, Inc. 

CC: Jim Taylor, President AMUS 


ST AT, the healthcare people... 
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(1) Documentation in general —- looks good, huh gang ? 7 

With the Version 4.0 release, it appears that we may now claim * 
that a complete set of AM-100 software documentation consists of = 

(a) The colored & bound manuals (6) { ; 

(b) The Version 4.0 update packet (about 1" thick) = 

Some minor exceptions to this ideal still exist; those which have < 
thus far come to my attention are as follows : * 

(a) MAP.PRG —- documentation obsolete & not replaced * 

The switch options (/FSBMURH) described in the AMOS ; 

manual under MAP.PRG are no longer available, and only f 
tend to obstruct the normal MAP output. ; 

(b) ISAM.PRG - assembly language calling sequence manual * 

This came out in Version 2.0, was revised in Version 3.0, * 
and has been included in all sets of documentation since * 
that time. It is not included in the Version 4.0 packet, f 

(c) Converting to the AMS diskette format —~ out of date 

This is the original Version 2.0 release unchanged. For f 
the most part, the conversion procedure has been j 

significantly simplified because of the overall l 

improvements made in the AMOS system, and the document is " 
dreadfully in need of updating. * 

> 

(2) October'4 — remember that date ? * 


October 4 of 1976 is the date given on the WD-16 manual. It is 
also the date given on the annou^b ament of Western Digital's 
latest landmark, the PASCAL .Microengine (4 October 1978). 

(3) COPY - — make backup capabilities more obvious 


Many folks are quite surprised to find out that the COPY command i 
can be easily used to make backups of entire disks. The sequence f 
is something like this : * 

LOG 1,2 * 

FORMAT f 

i : 

SYSACT DSK1: : 

I . ^ 

Y : 

E * 

COPY DSK1:[]=DSK0: [] * 

The pre-release documentation for the COPY program (given out 
with the Alpha Accounting package) placed a description of this ; 

{ 

N>» E w *o N i*» V *. « AkAkMcnT Ajum S«< ao Ja* ArS»c*»Jua*DS*CMH«»iS*c*«NA^*^H?MBfS4c»*! 
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(3) [continued] fact in a prominent place at the beginning of the \ 

COPY section. In the final 4.0 release, this description was ? 
relegated to the bottom of the very last page of the COPY \ 

documentation. I would like to see this situation returned to 2 
its original state. Even better, make a standard backup file 1 
called 3ACKUP.CMD[2,2], which gives what I gave above with » 

some cautious warnings at the appropriate places .... 2 

(4) TXTFMT - allow more LIST ELEMENT options l 

> 

I would like to see 2 types of options available with the LIST ■ 
ELEMENT structure. The first is the option for single or double ? 
spacing between elements (currently, double spacing is forced). - 
The second is to choose whether to have none, the last, or all * 
of the indices printed in front of the list elements. If these ' 
options were available, then table of contents would look even ; 
better. For example : f 



Possible Now 

Would like to see 


Would like to see * 

i 

\ 

1. INTRO 

1. INTRO 


1. 

INTRO 

j 

r 



1.1 HELLO 



HELLO 


l 

1. HELLO 

1.2 BYE 



BYE 

T 



2. MAIN TEXT 


2. 

MAIN TEXT 

> 

r 

2. BYE 

2.1 HELLO 



HELLO 


; 


2.1.1 HI 



HI 

i 

: 

2. MAIN TEXT 

2.1.2 IM FRED 



IM FRED 

r 



2.2 BYE 



BYE 

> 

; 

1. HELLO 






< 

> 

1. HI 






? 

2. IM FRED 





> 

i 

2. BYE 





Z 

» 

1 

This is not the < 

cutest looking example, but 

it 

gets the idea 

i 


across (I think) 

. The chief advantage to 

be 

gained is that 

? 

& 

(m the center example) a table of contents 

could be made to 



exactly parallel 

numbering in the HEADER 

LEVEL 

sections in 

0 

< 

the main text of 

a document. 




2 

c 

X 

“ 


8 




* 

» 

s 


E » 0 *»» K A a Sat Nam KaaTa Fuqu. Ni» Bxao Ni» Vf » A — A c M*s»r Ajo«*> Sai Bmamo P <« a c a ~ J » » Ac Sac— Jucao Sac— i-i « • i Sac- N a — a *• Mc*i 61 Sac — ! 



j»* AoS*: 



COMPUTER SYSTEMS INCORPORATED 



K * f L a r N«m K»»r» Pu»hh Nik Nik Vis A«u Moomt Ajuni Sai Gum P»»t»o 


500 SOUTH LAKE AVENUE, PASADENA, CAUFORNIA S11C1 


m Jv^sd Stcn H 6 a i Sack N*m« Hast Bi $« 


TELEPHONE (2133 SB A-3311 


AMOS SUGGESTIONS (Version 4.0) 


3/2/79 


(5) BASIC RND function - some notes ? 

First, understand that true randomness is not possible using \ 
only digital methods, but we can get as close to it as desired. * 
The ALPHASASIC RND(-X) function allows the user to reproduce l 

his random function sequence by simply re-entering X, and then 2 
letting BASIC re-create the same sequence of random numbers = 

that were generated before 9 using the "seed" of X. This makes : 
debugging easier, and later on (after debugging) it allows * 

any particularly enjoyable games to be replayed. Beware, - 

however, that in ALPHABASIC, the following is true - 

RND(-X)=RND(-X*2) 1 

Thus, if you generate your games using RND (-1),RND(-2),RND(-3) , * 
you will not land up getting a good statistical randomness. i 

Evidently, when ALPHABASIC sees RND (-X) , it simply replaces the * 
last random number generated with the value of X, only it f 

ignores the (base 2) exponent of X . It then goes on to 
calculate the next-random number, based on X as the last random *;* 
number. ! 

If you truly want a random game as a function of a positive l 

integer seed, then use an irrational number such as SQR(2) or l 
pi in the following expression r 

RND(-X*IRRATIONAL 1 CONSTANT) ' 

where X may now take on integer values from 1 onward, and * 

yield reasonably random games. Another, even safer solution, * 

is to use one of the following seed expressions : j- 

RND(-SIN(X)-1) i 

RND(-.75-.25*SIN(X)) * 


c 

: 

X 


Kab Sat N>m Kaktk PuKbm Nib BnO Nib Vis 


Z 

5 

Mocbt Aiuki Sai Shams Cua P#a»»ci Jab. Ac Sack Jusas Sack NihSacn Nanak H-9*i Bi SachI 
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(6) To all software developers - concerning PPNs [1,4] and (2,2] f 

It seems that just about every developer of AM-100 applications I 
software gets around to using the program names START, MENU, * 2 
GL, etc. If you put such programs into PPNs [1,4] or [2,2], 1 
you can be sure that they will ultimately collide with someone l 
else's programs by the same name. We at Khalsa have four ^ 

different applications systems on our hard disk for demo * 

purposes; we have found that renaming/recoding programs to get : 
around this problem is a drag. Even Alpha Micro themselves > 

now assume that START.CMD will be automatically executed 1 

whenever anyone logs into the PPN where it resides. Since the F 
inevitable software explosion on the AM-100 can only make things'; 
more chaotic if no planning is done in this area, may I offer * 
some hard-earned tips for mutual co-existance of your software £ 
with other systems. » 

(a) Give your application a 1 to 6 character name, for example, f 

"LEDGER", put a single command or do file in [2,2] named •: 

LEDGER.CMD whose main purpose is to load any necessary l 

routines, fool around with AMOS as much as necessary, l 

put up a nice-looking screen,put the user at ease, and then ? 
get out of the common account areas for good. r 

> 

(b) If you run into any conflicts with other systems' names, * 

simply rename your single command file. : 

(c) Put your system's programs into a PPN with 3 digits , such » 

as 100,1. Try to keep all of them in one account. Think } 

of how easy it will be when everyone is trying to figure 

out where their programs are, and you can just sit there r 
quitely and say "mine are all in 100,1 ." * 

(d) To facilitate the use of your system by several users, z 

all with separate data files (and hence, separate PPNs), \ 

put your programs onto DSKO;[100,1] and CHAIN to each I 

module using CHAIN "DSKO:FILNAM[100,1]". Thus, every user l 
can stay where he is, with his own files in his own PPN, ? 

but still use the programs in 100,1 without having duplicate 

copies in his own PPN wasting disk room. ~ 

(e) Finally, if you have a system of just 1 to 6 programs, and J 

just can't stand the thought of not putting them into * 

DSKO;1,4, at least give them a cpmmon naming structure, * 

10 ? 
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; (6) [continued] ; 

j 

such as the following : * 

f LEDGER.SBR ? 

? * LEDGER.RUN l 

z LEDGER.HLP \ 

\ so that they can all be found or copied with a single command, ? 

DIR LEDGER. * ‘ < 

or, at very worst, a double wildcard such as * 

] DIR STAT*.* * 


ll 


C - 0-*i Kaa Sat 
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APPENDIX III 


LINK.BAS 


LINK is a small (5-block) ALPHABASIC program which appends 1 or more 
program segments together* then compiles the resulting program. The 
observant reader will notice that LINK'S primary objectives could Just as 
easilr- be carried out by AMOS command files. However* there are several 
me? features about LINK which Justify its existance. 

I wrote LINK because I observed 3 things i 

(1) ALPHABASIC's labels allow the user to create truly "portable" 
subroutines* that can be easily imbeded into other programs. 

Note : the user must still beware of duplicate variable names 
(variable names inside the subroutine versus variable names 
outside the subroutine). This is because ALPHABASIC (li^e most 
BASICs) does not distinguish between locally & globally defined 
variables. If one could define a variable as local to a 
particular procedure* then this would not be a problem. 


(2) ALPHABASIC'" s line numbers are only needed when using the 
BASIC/RUN program pair. When CGMPILing programs directl. off 
disk* line numbers are not necessary if the program uses labels 
in all of its GOTO's* GOSUB's* etc. In fact* line numbers mar be 
duplicated* out of order- or missing entirely* and COMP IL will 
still compile correctly. 

(2) Most large software systems will have some program 
segments/subroutines which are used by 2 or more of the programs 
in that system. It is desirable to store such program segments 
separate!.' on disk* and only concatenate them together at 
compilation time. This not only saves room on the disk* but 
greatly simplifies the process of making system changes. 


Because line numbers are not important when COMF1Li ns label-based 
ALPHABASIC programs directly off disk* it is possible to concatenate 
together many program segments* without having to worry about whether the 
1 lr.e numbers will "collide”. In fact* the programming purist will probabl.- 
pr-efer to store all his program segments with no line numbers whatsoever ' 
The on! , drawback to this situation is that* with no line ’"»ur T ibe r s in the 


source code- the AMOS RUN package will not be able to report 


if any fatal errors 
the program could 
available* there is 


occur during execution. 

be re-compiled with 
no easy alternative. 


If source code i 
line numberss if 


a line number 
s ava i 1 a b;e- 
no source is 
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OPERATION OF THE LINK FRPORAM 

To invoke the LINK program* type s 
RUN LINK 

The LINK program will then ask for a program name* for example : 

FRED 

LINK will then check to make sure that a FRED.BAS does not a.i readv exist. 
If it does* the program will exit. The user is asked whether or not he 
wishes to keep the FRED.BAS file which will be created by the LINK program. 
If not* FRED.BAS will deleted after compilation (see below). LINK then 
looks for FRED.RUN; if found* FRED.RUN is deleted. Next, LINK Tools for a 
file called FRED.LNK. If this ’’.LN^' file does not e' -1 s t * the program wil' 
5 .it. Otherwise* LINK opens FRED.LNK and expects it to contain a list *.>f 
program segments. -or example* suppose that FRED.LNK contained the 
fol1owins ' 

FRED1.BAS 
FRED2.BAS 
OPEN.SUB 
INPUT.SUB 
END.BAS 

LINK wou 1 d create the new file FRED.BAS* and then successively copy into it 
the contents of each :<f the above files* m the order given above. This is 
equivalent to executing the command * 

APPEND FRED.BAS=FRED1.BAS,FRED2.BAS,DATE.SUB*INPUT.SUB* END. BAS 
at AMOS monitor level. An »• legitimate AMOS filename may appear in a . LNk 
file? in practice* I have settled into a naming scheme where all shared 
subroutines are given .SUB extensions, and all (unshared) main program 
segments have .BAS extensions (the single exception is END.BAS* which 
contains one CHAIN statement and one END statement). As each pr-ogr-an 
segment is appended to FRED.BAS, its name is displayed, as well as its sice 
in lines and bytes. If any of the files in FRED.LNK is not found- an err :.r 
message is displayed by the LINK program. After the concatenation “recess 
is completed* LINK then chains to its own internally-stored command fi*e 
which does the following ; 

ERASE FRED.RUN 
COMPIL FRED.BAS 

and final 1v* if the user chose to do so* 

ERASE FRED.BAS 
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•* J r J f 4 * 


20 70 
20)40 
2050 
2060 
2070 

20 SO 
20*0 
2100 

21 JO 
2120 

120 
140 
1 50 
_ 160 
21 "'0 



2240 
2250 
22 20 


2270 
2 2 SO 
22-0 
2 * 'JO 
2 210 


2240 
Z 250 

2 J 7 0 


2400 

2410 


-LP^AEASIC CONCATENATING, 7 IMF ILING PROGRAM ‘ 


PEN . STRING DEFINITIONS 

MAPI PAGE * F 7 6 * 63 ! # OF LINES PER “PAGE" 

MAPI PNAME* iS,6 
MAPI LDATA* ,S7lOO 
MAPI SEGMENTS,S ? 10 
MAPI COM3* ,9*100 
MAPI NOYES* , S,1 

MAPI TITLEi* ,Si30,"- - - - 

MAPI TITLED* ,S,80,“-FILENAME- -STATUS- FILE PAGES BLOX LINES BYTES 
MAPI BS24* ,S,40,”" 

MAPI BS16* ,S.40,"“ 


REM . CONSTRUCT SPACES 

RQR 1=1 TO 16 : BS16*=BS16*+CHR(3) : NEXT 
FOR 1=1 TO 24 : BS24*=BS24*+CHR(8> : NEXT 
INCR*10 ! AFTER EACH INCR LINES SCREEN 


I 

IS UPDATED 


REM. 

PRINT TAB(-1,0'5 

INPUT “ENTER NAME OF PROGRAM (1-6 CHARACTERS) : ", PNAME* 

LOOKUP PNAME*-*-“.BAS”, THERE 

IF(THERE 0) THEN ? “ERROR-PNAME*? “.BAS EXISTS" : GO TO END 

LOOKUP FNAME*+".LNK“, THERE 

IF(THERE=0) THEN PRINT “ERROR-"? PNAME*; “.LNK NOT FOUND" : GO TO END 

NCYES**'* Y" 

PRINT "DELETE ” ? PNAME*; ".BAS ° < ' Y ' OR 'N' OR DEFAULT Y') : ": 

INPUT NOYES* 

REM . OFEN FILES 

OPEN #1, PNAME*+ ,, .BA3". OUTPUT 
C^EN #2, PNAME*-*-" .LNK”, INPUT 

PRINT “NOW CONCATENATING PROGRAM SEGMENT FILES FOR “5 PNAMS*+".EAS" 
PRINT ” TITLEi* 

PRINT “ "5 TITLES* 

PRINT “ TITLEI* 

TLINES=0 
TBYTES=0 
TFILES=0 


20 NEXT • COMMAND: 

2440 INPUT #2^ SEGMENT* 

2400 IF ( EOF ( 2 > =1 ) THEN GO TO END-'COMMANDS 

2460 17 ( SEGMENT*=" “ ) THEN GO TO NEXT"”COMMAND 

2470 TFI LES=TF ILES+1 

24PO AFILE*=RIGHT*(“ #“+STR*<TFILES>,3) 

24^0 PRINT USING “ \...\ INPUTING SEGMENT*, AFILE*: 

2500 LOCKUP SEGMENT*, THERE 

2510 IF(THERE=0) THEN PRINT BS16*? “ NOTFOUND" : GO TO NEXT'COMMAND 

2520 OPEN #3, SEGMENT*, INPUT 

2530 NLINES*0 

2540 MBYTES*0 

255C 

25w0 "C 'LOOP: 

2570 IN°UT LINE #3, LDATA* 

2520 IF(EOF < 3) = 1> THEN GO TO END'FILE 

i5°o riLir ;es=nl i nes+ i 

2600 M?YTES=NBYTES+LEN(LDATA*)+2 . 

2.10 PRIM T #1, LDATA* 

2:.20 IF ( ML INE 2/ J NCR ID INT(NLINE3/INCR)4 THEN GO TO TO'LOOP 
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"ip - i>4T ; ^ y«_ I \E ~'~ 1 ' * 0 A‘"iE ' + 1 

1640 r \SL0C\ ■ 3= I NT ( ' NFV T E3-1 ' /3 10 ) f 1 

l-EO FEINT USING " &#**** a###*”, NR AGES, NBLQCKS* NLINE3, NBYTBS 

1660 -PINT BS24*? 

1670 GO TO 10•"LOOP 

26*0 END"FILE: 

I’^OO NPAGES=INT( (NLINES— 1 ) /PAGE ) + 1 
1710 NBLOC:- S=INT< ( NBYTE3-1) / 510 ) + 1 
1720 PRINT PS16$ 5 

2^30 PRINT USING “ \..\ “FINISHED", AFILE*" 

17^0 PRINT USING “ 4#### ##4*# ##### #####••, NPAGES, NBLQCKS, NLINES, NBYTE3 

l^f0 TLINES=TLINES+NLINES 

1760 7BYTE3=TBYTES+NBYTER 

2“T0 CLOSE #3 

Z’T'JO 30 TO NEXT "COMMAND 


2300 END‘COMMANDS: 


2310 

PRINT 

" " ? TITLE 1 $ 


1220 

PRINT 

USING " \.\ FINISHED 

ALL”, PNAME*+ 

2 6 30 

trace 

= INT < t TLINES-1 »/PAGE ) + l 


2340 

"’"BLOCK 

S=INT( (TBYTES-1)'510 ) + 1 


~ p CJ 

-■PINT 

USING " 4*##*$* **### ##### #####* 

*, T*AGES, “BLOC 

IS 60 

PRINT 

”C CONCATENATIC N FINISHED 3” 


IS SO 

CLOSE 



jOQP, 




2*00 

REN .... 

. . 


2? 10 

CRLF*= 

CHR (13 ) +-CMP (10' 


2920 

COMD*= 

"DSKO:TINE. P RGC1»4]" + CRLF* + 1 

*:T" + CRLF* 

2*30 

COMD*= 

CGMD* “ERASE " +PNAME**" . RUN" 

4- CRLF* 

2-'40 

COMD$= 

COMD* + “COMPIL M 4-PNAME*+ n . BAS" 

+ CRLF* 

2930 

IF<NOYES$ I! "N”) THEN C0MD*=COMB* * * 

'ERASE “4‘PNAME*4- 

I960 

CHAIN 

COMD* 


2*7% 




2980 




2-600 

END: 



6 COO 

END 




BAS"? 

:, TLINES- TBYTES 

BAS” 4- CRLF* 
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(1) BASIC - new file I/O syntax (revisited) ] 

In buglist #8 I reported the new syntax ? 

READ #1, XDATA[A,BJ P 

as being available in BASIC. My mistake. In reality, the syntax : 

WRITE #1, XDATA[A,B] f 

has been added. The READ syntax is illegal (Mil) and will get c 

you an error message. Since any usage cf the new WRITE syntax - 

will necessitate the availability of the corresponding READ ; 

syntax (as given above), I would suggest that Alpha Micro add 
this capability to the READ routine in BASIC. In fact, I am 
already using the new WRITE syntax in a cute program, and am 
kludging (badly !!) the currently-unavailable READ syntax. * 

Please help me (and my program) save face.... ' 

(2) BASIC - XOR doesn't work properly r 

Enter BASIC and enter the following simple statement 

IF (0=0 XOR 1 = 1) THEN PRINT "TRUE” ELSE PRINT "FALSE” : - 

This statement (on our Hawk System) causes a variety of responses 

(a) hangs BASIC up until control-C entered 

(b) buss error 

(c) crashes system 

(3) BASIC --some errors not detected by MAPs 

MAPs are not well-known for catching syntax errors. Please do : 
not end a variable with an apostrophe, * 

MAPI DOLLAR'TOTAL' ,S , 10 ; 

or it will catch up with you at some unexpected time later on. 
Neither should you use the dollar sign on a floating variable ■' 

MAPI BALANCES,F,6 ; 

no matter how tempting it may be. I am not sure if this will r 

cause any problems later on, but I do know that MAP does not 
catch the contradiction of types. = 

Finally, be careful about making hierarchical edits after "bad" : 
MAPs have been COMPILEd or RUN. For example, enter the following ; 
10 MAPI X(5) : 

20 MAP2 Y,B,1,1 i note incorrect form . ^ 

30 MAP2 Z,B,1,1 ! note again : 

40 END ? 

RUN c 


10 

the last line will be followed by an immediate & silent crash. 
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(4) BASIC - subscripts are still having problems 

The following still gets an undeserved error message : 

1 A (B) =1 

even when it is the first thing entered to BASIC. The error 
message is "WRONG NUMBER OF SUBSCRIPTS". 

(5) RUN - no file name still causes crash 

Type RUN at monitor level with no filename following. Crash. 

(6) ISAM - hard to describe, easy to fix 

The symptoms : if the first record ever entered to an ISAMed 
file is deleted, pointers get messed up and no new entries can 
thereafter be made. Another symptom : entering new records 
causes the output of "SYSTEM ERROR 35”. 

The fix, f\i ph* Mi ere 

JLQG 1,4 
^DDT ISAM 

PROGRAM BASE IS nnnnnn 

PROGRAM SIZE IS 7516 

6730/ BEQ 7032 0 crlf 

control-C 
^SAVE ISAM.PRG 

To check whether your ISAM is good or bad, type 
^DIR ISAM/H 

ISAM PRG 8 513-461-220-072 DSX0;[1,4] (if ok) 

ISAM PRG 8 610-033-343-544 DSK0:[1,4] (if bad) 

(7) COPY - gives source PPN 9 s in hex if hex currently set 

Typing the following may confuse the average user : 
j_SET HEX 

JZQVY =FILNAM.EXT[40,40] 

FILNAM.EXT[20,20] to FILNAM,EXT (note hex PPN) 

(8) HELP - not yet bulletproof 

Type HELP VUE and the first page of the VUE.HLP file will 
'appear. To proceed on to the next page, you are supposed to 
enter a simple carriage return. If instead you enter one or 
more non-blank characters plus a carriage return, the next page 
will be displayed without any carriage returns. Try it. 
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(9) TIME - 12 o'clock not input correctly 

Any time input of the form 
TIME 12:mm AM/PM 

will go in advanced by 12 hours beyond what it should be. 

The correct logic for the TIME inputs is as follows : 

input : HOUR , MINUTE , AMPM 

range : 0-23 , 0-59 , null or "AM" or "PM" 

default : 0 ,0 , null 

After input, the following processing should be done : 

IF(H0UR=12 AND AMPM^null) THEN HOUR=0 
IF(AMPM="PM”) THEN H0UR=H0UR+12 
IF(HOUR>23 ) THEN give error message 
As currectly implemented, the first of the 3 IFs given above is 
now missing in the TIME program. The output from the above 
logic is an H0UR:MINUTE pair in 24-hour clock format (in the 
range 00:00 to 23:59). 

(10) Command files - if last line is :K, it is ignored 

Create the following trivial command file : 

: S 
: K 

And call it BOB.CMD . It should execute as follows : 

^BOB crlf 
crlf 


However, it is now executing as follows : 

^BOB crlf 

This is especially annoying when using the :P and :K in a 
partial keyboard input, because an extraneous monitor "." 
shows up on the screen. 

(11) DIR —— old bug 


The output from the 2 commands 
DIR MEM: 

DIR RES: 

is still incorrect. They both give program sizes that are 10 
bytes too large. 
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(12) DUMP - a variety of notes and mini-bugs : 

If any of you AMUS readers out there haven't tried DUMP, -I 

please do. It is most helpful at times. - 

(a) DUMP BITMAP hard to follow \ 

Please add octal or hex addresses to the left of each f 

64-bit dump line on the screen. This command is very 5 

handy for seeing how "unpacked” your disk is getting to be. * 

(b) DUMP RECORD-- be careful when hex is set l 

If you have set hex and plan to DUMP records (disk blocks) : 

whose hex addresses begin with hex digits A thru F, be sure 
that you put a zero in front of any such addresses that ; 

may be mistaken for device names. For example : 

DUMP BITMAP A98 DSKO : works ok !• 

DUMP BITMAP A98 A99 DSKO: fails 1 

DUMP BITMAP A98 0A99 DSKO: works ok \ 

{c) DUMP DIRECTORY -— deleted directory entries look funny •* 

Files that have been ERASEd may still occupy room in the '* 
user's directory. These will be characterized by the 
presence of the 3 characters ":80" in place of the previous ! 
first 3 lettexs in the original filename. Do a directory ^ 
DUMP and see. ? 

(d) DUMP FILNAM.EXT - -fails for random files ? 

I think this command should be revised to handle random 
files as well as sequential files. As of now, an attempt to = 
DUMP a random fijLe results in a "FILE TYPE MISMATCH” error. : 

(e) DUMP 1 - try it 1 * 

This causes the user's terminal to go into an unstoppable * 
dump of semi-pure garbage. Only re-booting the system l 

will stop it. Other user's are not crashed, however. \ 


(13) BASORT — careful ! • 

Bryce Jackson of Thousand Oaks reports that BASORTing a random 5 
file (small enough to fit into memory) will cause the loss of “ 
exactly 0 or 1 blocks (512 bytes) of data from the file. Thus, : 
it "sometimes loses a block". This problem has been acknowledged 
by Alpha Micro. On files requiring a polysort/merge sort, i 

extra null records are being inserted into the file. • : 

I myself can report that the monitor level SORT appears to l 

work ok; both bugs reported in buglist #8 about SORT are gone. : 

19 * 
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(14) VUE - still kills IMSIO HOG option, but less often ) 

y 

In buglist #8, Duane Cowgill reported that entering and then ; 
exitting from VUE killed the IMSIO HOG option until system z 

was reset again. In this buglist, he wishes to report that * 

the HOG is killed only if VUE is exitted with errors (i.e., ; 

if disk is write protected and VUE can’t write the newly z 

editted file out to the disk) . Life is getting better for the * 

HOG with each AMOS release. I- 

> 

(15) VUE - problems with the ADDS terminal * 

I went through this over the phone with Terry Peterson, but I - 
will take at least 90% responsibility for asserting this to be * 
a real bug. If we had an ADDS terminal at the Store right now, i 
I would check it out and assume 100% responsibility. : 

To be safe, use EDIT and create a file FRED.FRD with the line ? 

/ abc f 

Where there just 4 characters and a carriage return line feed* f 

pair at the end. Then, on an ADDS terminal, type \ 

VUE FRED.FRD » 

control-L (to move cursor one character over) ? 

A (to replace "a” with "A”) > 

The screen would normally look like this > 

/Abc l 

With the cursor now over the "b". But on the ADDS it looks ; 
like this : r 

/AY " > 

Where the cursor is now immediately to the right of the ". ; 

This is exactly what would happen if someone tried to position * 
the cursor at row 1 column 2 on the ADDS screen and forgot to : 
send out an escape with high-order (128-) bit on to get it past !• 
the AMOS monitor. In other words, the cursor sequence is * 

escape , Y , blank , ” 2 

or, in straight numerical ASCII > 

27 (+128) , 73 , 31+1 , 31+2 = 

And the escape is either not getting generated, or more likely, i 
is getting trapped by AMOS. • 


(16) VUE - some more bugs reported by Bill Miller in Florida . : 

Bill has made a very good bug report and it would be senseless : 
for me to type it all over. So, for the next 2 pages I turn ? 
the bug report over to Bill. *- 
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SUNNY COMPUTER SYSTEMS, INC. 

UNIVERSITY SHOPPING CENTER 1238A SOUTH DIXIE HIGHWAY - CORAL CABLES, FLORIDA 33146 • (305) 661-6042 

February 1, 1979 

Buglist 4.0 

I. While'you are using VUE on a file containing one or more 
upper case E's* 

1. Get into command mode. 

2. > SEARCHFOLD#FALSE l 

3. > F0LD#FALSE l 


4. 

?Rt5E 

2_ 

; enter upper case 

letter 

5. 

6. 

?e ^ 

Enter 

a Y 

i enter lower case 

for any or all occurences of "E" 

letter 


Problems only upper case E is placed into the file. The 
problem is more general in that tig lower case letters 
can be placed in a file using REPLACE. 

II. The same problem occurs using GLOBAL. 

III. Prepare an INI.VUE file the last line of which is blank! 

1) . VUE# filename it ; use an existing, valid filename 

with extension. 

2) Get into command mode. ; esc. 

3) > 0 ^ l quit using VUE. 

4) . VUEftfilename 1 ? same filename plus extension 

as above. 

Problem* system will crash. 

Solution* remove blank line from INI.VUE. It is ray opinion 
that many users will use VUE to create an INI.VUE file. 

When using VUE in insert mode# most users will hit . on 
their last line of text. This will create a last-line- 
blank condition unless a control Z is then entered. 

IV. The search argument string when using SEARCH, REPLACE or 
GLOBAL in VUE will ignore leading and trailing blanks. Example* 

file contains dog#BoyAB 

1) Get into command mode of VUE 

2 ) 

3) Ctrl x j next match 

Problem* the cursor will incorrectly be positioned over the 
second occurence of B. There is no second occurence of #B. 
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UNIVERSITY SHOPPING CENTER • 1238A SOUTH DIXIE HIGHWAY • CORAL GABLES. FLORIDA 33146 • (305) 661^042 

page 2 of 2 

Buglist 4.0 (cont'd.) 


V. . LOGtil. 2 } 

. SYSACT^DSKl* £ ; use a scratch disk 

*A$69,69 l non octal number 

PASSWORD_ 

*E- 

■ DSKANAtfDSKli/L 

Problem* Results are unpredictable. The directories are 
■ sometimes clobbered. A new PPN 0,6 is sometimes added. 

Solution* Make sure that only valid octal numbers are entered 
i.e., 0 to 377 . 


Underlined text is entered by the user, 
is a blank. 

Comments follow a "j". 

is a carriage return. 
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NOTES ON DATE CONVERSIONS 


(l) Gregorian dates (Y,M,D). This system has achieved almost-worldwide 
usage. Exception: the Modified Gregorian Calendar of the Greek : 

Orthodox Church in Albania will differ from Gregorian in a couple of 1 
centuries from now. 


* ( 2 ) Day of year (Y,DOY). This system has achieved popularity among the 1 

l militiary and business programmers, and is commonly known among them ; 

: as the so-called "Julian date", which is a mis-nomer on two accounts, > 

i first, because it is still Gregorian (not Julian) calendar in origin,: 

\ 8c secondly, because the original "Julian Date" (see below) has been r 

i in use at least 200 years longer than this system. The year (Y) is * 

l taken to be the same as the Gregorian Year value, and the "Julian * 

* Date" or day-of-year (DOY) is 1 for Jan 1, running through to 3^5 (or £ 

< k 366 ) for Dec 31* The advantages of this system are several. ; 

(a) no monthly irregularities f 

= (b) it maintains a basic similiarity with the calendar j 

< (c) for year-based accounting intervals, it is perfect r 

' Unfortunately, the day of the week is not any more easily determined I 

] than with the Gregorian Calendar system (Y.M.D). ; 

r ( 3 ) Julian Date (JD). This system, although not related directly to the ‘ 
r Julian calendar, is not misnomered, as it is named after Julian T . 

\ Schalager, the inventor's father. This system is used by scientists j 

: (especially astronomers) and chronologers. It is defined as follows:7 

1 JD - the number of solar days (and any fraction) since Greenwich l 

l noon of the last mutual concurrence of the 4-year leap year * 

\ cycle, the 7 -year "solar" cycle, the 19 -year Metonic cycle : 

; (235 lunations = 19 years ♦ 2 hours), and the 15 -year ; 

£ indiction cycle (Roman taxation interval). * 

\ * 0 at BC 4713 January 1 , 12:00 GMT \ 

| = n at exactly n days after that time ; 

I = 2415020.50000 at AD 1900 January 01 , 00:00 GMT f 

1 = 2415021.00000 at AD 1900 January 01 # 12:00 GMT ? 

I = 2444240.00000 at AD 1980 January 01 , 12:00 GMT i 

l The advantages of this system should be obvious, especially when * 

\ determining the day of the week, and the number of days between any 7 

two dates. For historians, the starting point (4713 BC) is handy } 
•; because it predates virtually all events known to the exact day, ; 

l hence, all historical dates are positive Julian Dates. * 
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(4) Calculating JD from Y, M , D. This may seem formidable. However, I 

maintain that, in order to calculate the day of the week, a program 1 

effectively calculates the Julian date anyway (or a close "relative** : 
of it). The simplest method I have seen for this calculation is as ; 
follows * ; 

(a) Start with Y, M, D 

(b) IF (M=l or K = 2) THEN LET K*M*10 Sc LET Y=Y-1 ELSE LET M=M-2 * 

(i.e., consider "arch thru December as the 1st thru 10th r 

months, and consider January & February as the 11th Sc 12th : 

months of the previous year. Historically, this is how things' 
used to be; "Dec"ember was the "tenth" ember, and so forth.) < 

(c) JD = INT(Y*l46l/4) + INT(M*36?/12) ♦ D ♦ 1721074 \ 

Simple, huh ? For practicality's sake, I have confined myself to the ‘ 
range 1900-Ft"AH-01 to 2100-FEB-28 in the above expression. Also notice - 
that the above expressions always give an integer for JD (the value ! 

of JD at Greenwich Noon), The completely general expression for JD ? 

is as follows : * * 

(d) JD = INT(Y*146l/4) + INT(M*367/12) D + 1721087 \ 

(h-12)/24 * m/l440 + s/B6400 (where h:m:s is GMT) r 

+ 2 - INT(INT(Y/l00+l)*3/4) (for Gregorian dates \ 

where the last line is to be included in the calculation if the ; 

Gregorian Calendar Y,M,D are begun with (in (a)), and excluded if the = 

Julian Calendar Y,M,D are used, chiefly for dates before 1582 AD. : 

Note that the above expressions will fail for 3C dates (Y<0) if the 
INT function is a simple "chop" function, rather than the "always- 
round-down" function# 

(5) Calculating the day of the week from JD. Trivial. Divide JD by 7; 
the remainder will be 0 for Monday, 6 for Sunday/ If a non-integer 
JD is used, round to the nearest integer before dividing by ?. The 
GMT convention will also have to be accounted for, if observed. 

(6) Calculating DOY from JD. Also trivial. Use following : 

DOY = (JD of Y,M,D) - (JD of Y,1,0) 
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(7) Calculating Y,M,D from JD‘. This requires 1 or 2 possible "attempts" ' 
in any system, but not (as many programs hack it out) with 12 attempts^ 
The following routine assumes you already have a routine to convert : 
Y,M,D to JD (see section (4)); it tests two consequetive calendar \ 

months (one of which must contain the JD), and determines the value j 

of D for both months. Only one D value will be within the proper ; 
range. : 

m = INT((JD-1721075)*4S00/l46l00) (for Julian Calendar) s 

a INT((JD-1721075)*4800/l4o097) (for Gregorian Calendar) f 

Y1 = INT(m/125 ? 

m = crl2*Yin c 

D1 = JD - (JD of Y1,M1,0 as calculated by JD routine) 

Y2 = Y1 \ 

K 2 = Ml*l 2 

IF (M2 = l3) THEN LET Y2=Yin & LET* M2=M2-12 1 

D2 = JD - (JD of Y2,M2,0 as calculated by JD routine) > 

IF (D2 > 0) THEN return (Y,M,D)=(Y2,M2,D2) ELSE return (Yl,Ml,Dl)f. 


z 
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The following programs are available through the Byte 
Shop of Reno, At press time, we had no prices, but 
you may contact Chuck Growdon at 4104 Kiltzke Lane, 
Reno, Nevada 89502. (702) 826-8080. Chuck promised to 
send more information about these and other programs 
developed by the Byte Shop of Reno for the next 
Newsletter. 


BASIC language: 

CMPALL Allows 'wild card' compilation of basic programs. 

IF A conditional statement processor which allows the user to 

control the flow of procedure files. 

An example: .RUN IF FILE ABC.BAS THEN COMPIL ABC 
The file ABC will be compiled only if it exists. 

MENU A generalized menu system which allows selection of programs 
to be run. The menu can be easily edited when new functions 
are to be added. 

RENUM A program which will renumber a basic program. 

The renumbering can take place on specific lines f desired. 

RESEQ A BASIC programs resequencer. Similar to RENUM, but allows 
imbedded line numbers. 

BASIC subroutines: 

CHAIN Chain allows the user to chain to a command file directly 
by passing it a string of commands. This allows the user 
to pass arguments. 

CLINE Cline will fetch the command line into a string. This is 
very useful because it allows arguments to be passed to 
BASIC programs via the command line. 

COMBLK CombIk is a general common block routine which allows common 

blocks to be stored in memory when chaining to other programs. 
It is similar to the alphaMicro COMMON subroutine, but it 
allows any number and size of common blocks. 

DATCNV a generalized date conversion routine. It allows dates to 
be stored in just two bytes. DATCNV will check for date 
legality (i.e. 2/29/77 is illegal) and is valid through 
6/5/2079. 
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GETCH Gets a character irom the keyboard without the necessity of 
pressing return. 

PAUSE Allows the job to delay for a specified amount of time. 

PRTERR Prints an error message and waits for return from keyboard. 

PUTIN Allows the user to force characters into his own input string 

RENAME Allows renaming files inside of basic. 

RGETCH Allows real-time entry of characters from keyboard. 

Returns null ef no keys pressed, but returns a character 
when one has been entered. 

Assembly language programs: 

ALLOC Same as the ALLOCATE statement in basic, but entered in 
command mode. 

BASCNV Allows easy conversion between octal,hex, and decimal nos. 

EXIT Terminate a command file and print a message. 

Generally used with the IF program. 

GOTO Allows forward jumping in a command file. Very useful with 
the DO processor 

Changes to existing programs: 

LOGOFF will now delete any modules left in memory. 

PRINT new options for auto file deletion, form-feed after print, 
and multiple spooler capibility have been added. 


3740.1 diskette 8" 3740 format $o0./10 

3740. ID double density quality 80- 

107 i 5 1/4" 10 sector 3 °- 

104. 1 5 1/4" soft sector 80- 

special AMUS member price postpaid 

Micro Computers of New Orleans (504)32 1-08 i 0 
2025 Canal St. , New Orleans, La., 70112 
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£ Diskettes 


prniTIT™- 

t* 1®# i III ■ A powerful editor for the Alpha Micro AM-100 computer 
that is simple to use. Designed to facilitate entering and modifying text. data, and pro¬ 
grams quickly and easily. Even beginners can learn, in an hour or less, to use £01111' to 
prepare perfect letters. EDITIT tolerates user “errors”; commands may be entered in 
flexible formats. When necessary, EDITIT responds with complete and helpful error 
messages. In addition, a “Help” command is available to provide an explanation of any 
command. The command “Go” automatically submits all text files to the text formatters 
FORMIT or TXTFMT, all BASIC program files to the ALPHABASIC™ compiler and all 
assembly language program files to the MACRO assembler. An outstanding feature of 
EDITIT is the documentation, written and organized so that any user can understand it 
and use it immediately. 


EDITIT™ Features: 

v Fast: written completely in assembler 
v Thoroughly tested No Known Dugs 

v Re-entrant and shareable for simultaneous multi-user use 
under AMOS. - * 

v File length limited only by space available on disk 
v Line number oriented to permit exceptionally fast revision of long 
texts by reference to line number or umaue characterstrmgs 
v Any sequence of lines in any combination may be moved to a 
new location, copied to a different file, or displayed on the 
terminal with or without the nne number or orerix 
v Can find and/or substitute specified character str.ngs over any 
portion of file once per nne or at all occurrences per i.ne 
with or without verification 

v Any number of lines may De deleted replaced or inserted 
anywhere 

v' Internal line pointer keeps track or last line accessed permitting 
use of commands without refe r er,ce to 'me number 
v" Automatically creates new files when needec 
v Additional single nne suoedi*or allows user to nne and position 
cursor over any cnaracter to insert or delete any number of 
characters at that point, to delete to a cnaracter, to delete to 
end of Ime, to replace characters, to extend line, to display 
line, and to restore line to its pnor state, 
v Special features make insertion and editing of BAS and MAC 
files especially easy. 

v 7 Automatic submission of text and program files to the appro¬ 
priate formatter or compiler 

v 7 Automatical creates a backup file ( 3AK) containing last version 
v Can use any CRT or printing terminal and any peripheral dnve 
(floppy or hard) and can run m an AM-100" system with 
only 32K memory 

ALPHABAS1C, AM-100 and AMOS are trademarks of Alpha Micro 
Tvpeset tov Communications E'ectronics" 
Ann Aroor, Michigan 



SUPER EDITOR 


Only $149.00 

If purchased with FORMIT’ SAVE S25.00 
Only SI98.00 lor both FORMIT and EDITIT 



datalab. 

me. 

1221 Minglewood □ Ann Arbor, Michigan 48103 U.S.A. 
Telephone. (313) 995-0663 
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FORM IT™ a A powerful text formatter for the Alpha Micro AM-100™ 

computer. A companion program to EDITIT7 FGRMIT™ is also easiiy used, learned, and 
remembered. Documentation is complete, cross referenced, summarized and fully 
indexed. FORMIT™ clearly identifies errors, yet allows formatting to continue so the user 
can easily see the results of the error before printout. FORMIT” includes right and left 
margin justification, line positioning, line length, page length, page numbering, headers, 
centering, spacing and means for changing the appearance of paragraphs. Depending on 
the features in the terminal and printer being used and the availability of drive rs, FORMIT™ 
supports both underlining and boldface, either separately or together. In addition, 
FORMIT” can control carriage movements so that superscripts and subscripts can be 
printed. A unidirectional driver fcr a wide range of printers, a bidirectional driver for the 
Qume Sprint 5 serial printer, and a bidirectional driver for the Qume Sprint Micro 3 printer 
through a parallel interface, are now available. Contact datalab inc. for other special 
requirements. 



NEW! Powerful 
Text Formatter 

Only $74.00 

If purchased with EDIT1T” SAVE $25.00 
Only $198.00 tor both FORtyUV and EDITir 



FORMIT Features: 

>/Fast: written completely in assembler. 

^Thoroughly tested No Known ougs. 

Any portion of text may be left as entered, or automatically 
rearranged :o place the maximum possible number of 
words in each line 

v 7 Complete control of line length, position of line, changes in left 
margin, oage length and spacing. 

v 7 Any portion of text may be justified to give straight right margins. 

v 7 Automatic recognition of new paragraphs and control ot how 
paragraphs snould be printed (amount of indentation, line 
skip, etc.) 

'/Any character string may be printed in boldface itnpiy struck), 
and displayed on a CRT in dim mode. 

v 7 Any character string may be underlined by the pnnter and on a 
CRT screen. 

'/Carnage control available to permit printing of nested sub¬ 
scripts and superscnpts. 

'/Any character string may be centered, positioned at the ex¬ 
treme left, or positioned at extreme right - anc vanabiy 
underlined and/or displayed ,n boldface. 

v 7 Any character stnng may be used as header and positioned at 
the extreme right, extreme left, center of page, or at 
alternating sides of the pages - and be underlined and/or 
in boldface. 

v 7 Pages may be sequentially numoered automatically beginning 
with any selected number, and positioned at the too or 
bottom of pages, and at right, center, left or alternating 
sides of a page. 

v/ Numbering may be in Arabic numerals or in upper or lower 
case Roman numerals. 

'/Commands have commonly used default values (e.g. preset 
line length, etc.) If values are acceptable, the commands 
are not needed. 

v/EDITlT 1 may be used to enter text and commands may be 
inserted later. A typical letter can be typed by inserting only 
three commands, (f -], [f] and [f —]. 

v 7 Results are automatically placed in a file with the extension of 
.LST. The latter in turn may be printed, viewed, edited, etc. 

v/Runs in any system capable of supporting EDITIT? However 
boldface and superscript/subscript clearly require that a 
suitable printer be used. 

AMOS, and AM-100 are trademarks of Alpha Micro 

Typeset by Communications Electronics' 
Arm Arbor. Michigan 


datalab. 

me. 

1221 Mingle wood □ Ann Arbor, Michigan 48103 U.S.A. 
Telephone: (313) 995-0683 
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JAY GOURLEY 

903 C Street Northeast 
Washington, D. C., 20002 

Telephone 202-547-5935 

February 13, 1979 


Mr, Jim Taylor 
Alpha Micro Users Society 
c/o Community Free School 
Box 172*1 

Boulder, Colo. 80306 


Dear Mr. Taylor: 

Several weeks ago I finished an investment evaluator called SHARK for 
Thought Processor. He is written in AlphaBasic and I retain proprietary rights to 
him. I would like to sell copies to other AM US members. 

SHARK solves for all variables in a variety of investment problems 
including sinking funds, annuities, simple interest compounding, 
days-between-dates, mortgage amortizations, interest conversions, etc. Anyone 
understanding these can avoid arithmetic on most investment analysis without 
program documentation. In the sense that long, explanatory prompts are a nuisance 
to regular users, SHARK is more workable, functional and flexible than he is 
educational. He runs very fast in small memory with little prompting. 

After completing SHARK, I began work on documentation to help inexperienced 
users solve financial problems across a wide spectrum of difficulty. Since SHARK 
himself is forthright, the documentation is more a text on financial mathematics, 
full of sample problems. Even without the associated software, it is a 
worthwhile tutorial. 

I want to sell SHARK with cursory documentation for $120 to fellow AMUS 
members. Complete documentation costs $30. On SHARK*s advice, I’m offering a 
special finance plan to AMUS members — $7.50 a week for 36 months; if you don’t 
pay I break your thumbs. For a demonstration, of SHARK’S speed and power AMUS 
members may call 202 5^7 8462 and log into 101,101 between 1 and 5 p.m. ET. The 
Password is AMUS. I would appreciate your spreading the word. For cuetions, AMUS 
members should call or write me. 


Sincerely, 

^ lu 




if AX 

HEALTHCARE SYSTEMS, INC. 

4059 Roosevelt Way NE 
Seattle, WA 98105 


1-800-562-7775 
(206) 632-5080 


February 13, 1979 


Mr. Jim Taylor 
P. O. Box 1723 
Boulder, Colorado 80306 

Dear Jim: 

Enclosed is a list of the Medical/Dental Accounts Receivable System compo¬ 
nents we have just completed. Note that there is a distinction between 
the AR100 system (one patient, one account) and the AR300 system (five 
patients, one account). We are very excited about the power and versa¬ 
tility of this system, and believe it to be one of the most comprehensive 
on the market. 

Thanks again for the information on possible job cost systems being de¬ 
veloped. I would like to reiterate that should you run across a good job 
cost system, please let me know immediately. I have several clients who 
are very interested. 


Very truly yours, 



Tod C. Turner 
General Manager 


TCT :slc 
Enclosure 
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STAT AR100 MEDICAL BILLING SYSTEM 


THE FOLLOWING ARE THE COMPONENTS 0F THE STAT AR100 SYSTEM: 

I. THE SCREEN "MENU" (LIST OF OPTIONS) IS BROKEN DOWN INTO 
14 OPTIONS: 

1. MASTER FILE MAINTENANCE (ADD, UPDATE, DELETE, PRINT) 

2. PRINTING OF ALPHABETIC NAMES & ADDRESS LIST 

3. CHARGE TRANSACTION POSTING 

4. PAYMENT AND ADJUSTMENT POSTING 

5. ACCOUNTS RECEIVABLE AGING/LEDGER PRINT 

6. ALPHA NAME SEARCH FOR ACCOUNT NUMBER 

7. ACCOUNT VISUAL INQUIRY (LEDGER) 

8. PRINT STATEMENTS/INSURANCE FORMS 

9. SERVICE CODE MAINTENANCE 

10. PRINT ANALYSIS REPORTS 

11. PRINT PRODUCTION REPORTS 

12. CALCULATE FINANCE CHARGES 

13. CLIENT OPTION MAINTENANCE 

14. PRINT LABELS (MAILING OR FEE SLIP STYLES) 


STAT 
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ALPHA MICRO USERS SOCIETY Membership form 


Please fill out as much information as possible. 

Name _____ Company _ 

Address_City _ State _ Zip _ 

Business Phone _ Home phone _ 

Circle one: Own Lease Thinking 

Check all applicable: Dealer _ OEM _ User: Corporate _ Individual 

Describe equipment: , __ 

AMUS may use my naine for mailing lists 
Annual dues are $25.00 per member. 


Make checks payable to AMUS 



AMUS 

c/o Community Free School 

P 0 Box 1724 

Boulder, Colorado 80306 
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